Validation on Screen Painter 


REPORT ZDEMO CUSTOMER VALIDATION. 


tables : knal, "General! Data 
knkk, " Credit Data 
knbk. "Bank Data 


data it knbk type table of knbk. 
CONTROLS : tsc type tabstrip, tc1 type tableview using screen 90 
05. 


call screen 9001 . 


MODULE USER COMMAND 9001 INPUT. 
data v kunnr type kunnr. 


CASE sy-ucomm. 


WHEN 'CRT'. 

CALL SCREEN 9002. 
WHEN 'BACK.. 
LEAVE TO SCREEN 0. 

ENDCASE. 


ENDMODULE. 


MODULE STATUS 9001 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 
* SET TITLEBAR 'xxx'. 


ENDMODULE. 


MODULE USER COMMAND 9002 INPUT. 


CASE SY-UCOMM. 
WHEN 'SAVE'. 
INSERT KNA1 FROM KNA1. 
COMMIT WORK. 
IF SY-SUBRC = 0. 


IF KNKK IS NOT INITIAL. 
KNKK-KUNNR = KNA1-KUNNR. 
INSERT KNKK FROM KNKK. 


IF it KNBK IS NOT INITIAL. 
INSERT KNBK FROM TABLE IT_KNBK ACCEPTING DUPLICAT 
E KEYS. 
COMMIT WORK. 
ENDIF. 
ENDIF. 
MESSAGE 'Successfully Created' TYPE 'S'. 
ENDIF. 
WHEN 'BACK'. 
LEAVE TO SCREEN 0. 
WHEN 'TAB1'. 
TSC-ACTIVETAB = 'TAB1'. 


WHEN 'TAB2'. 
TSC-ACTIVETAB = 'TAB2'. 


WHEN 'TAB3'. 
TSC-ACTIVETAB = 'TAB3'. 


ENDCASE. 
ENDMODULE. 


MODULE SET DEFAULT VALUES 9004 OUTPUT. 
KNKK-KUNNR = KNA1-KUNNR. 
ENDMODULE. 


MODULE REFRESH ITABS 9005 INPUT. 
REFRESH IT KNBK. 
ENDMODULE. 


MODULE MOVE TC TO ITAB 2005 INPUT. 
KNBK-KUNNR = KNA1-KUNNR. 
APPEND KNBK TO IT KNBK. 


CLEAR KNBK. 
ENDMODULE. 


MODULE set list 9001 OUTPUT. 
types : begin of VRM VALUE, 
key(40) type c, 
text(80) type c, 
end of VRM VALUE. 


data : itab type table of VRM VALUE , 
wa type VRM VALUE. 


clear wa. 

wa-key - 'IN'. 
wa-text — 'INDIA'. 
append wa to itab. 


clear wa. 

wa-key = ‘JP’. 
wa-text = 'JAPAN'. 
append wa to itab. 


clear wa. 

wa-key = 'DE'. 
wa-text = 'GERMAN'. 
append wa to itab. 


CALL FUNCTION 'VRM SET VALUES' 


EXPORTING 
ID = 'KNA1-land1' 
VALUES = itab 
ENDMODULE. 


MODULE VALIADATE KUNNR 9001 INPUT. 
IF SY-UCOMM = 'CRT'. 
select kunnr into v kunnr from knal up to 1 rows where kunnr = 
knal-kunnr. 
endselect. 
IF SY-SUBRC = 0. 


MESSAGE 'ALREADY EXIST' TYPE 'E'. 
ENDIF. 

ENDIF. 

ENDMODULE. 


PROCESS BEFORE OUTPUT. 
MODULE STATUS 9001. 
module set list 9001. 
PROCESS AFTER INPUT. 
chain. 


FIELD knal-kunnr module VALIADATE KUNNR 9001. 
FIELD knal-LAND1 module VALIADATE_LAND1 9001. 


ENDCHAIN. 
MODULE USER COMMAND 9001. 


